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COMSERRSET FORTRAN compatibility error set (ERRSET) 18-Sep-1984 90:09:82 ot Bliss-32 V4.0-74 Page 1 
14-Sep-1984 7:31:28 FORRTL.SRCJCOMERRSET.B52;1 (1) 
001 MODULE COMSERRSET CE TTAS Pentany speek sol ity error set (ERRSET)' 
0 § IDENT = ‘1-012', ! File: COMERRSET.B32 Edit: SBL1012 
LINKAGE SPORTRAND ! Call-by-reference 
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BEGIN 


' 
Se eReR RAAT RARER ATER KARA AKARAAAAARe eee ee 
'@ 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH at ie abe Mey 


SSS SS SoS 


NOUN (OO OONAUES WN HOO ODNAUE WN" ODONOu 


® 
® 
® 
® 
® 
® 
® 
. H *® 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
' ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
iw CORPORATION. . 

oe 

eB 

® 

® 

® 

® 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'® 
Vee E AEA 
' 


++ | 
FACILITY: FORTRAN compatibility Library | 
ABSTRACT: | 
| 
| 


EA ee INNIS nn tes 

MEWNM OO OONAUESWN (ODO ONAUES WN" OOONOUSWNR— 
po lojelelelelelelelelolololeloleleoleoleleloelolelolololelelalolelelalolol ola!) 
po ewww lola lolololol~lolololololololololololelololololololaloleo!) 
WWMM AI NII AIP POPOPOPOPONPNINIDY 2 2 SS SS 


me ee ee ee ee ek ed ed ed ed od = = = = = = = = = = = 
. 


' 
' 
' 
' 
7 i This module contains routine ERRSET to perform F4P-11 type 
: it compatable error checking. 
re 78 ENVIRONMENT: User Mode - AST re-entrant 
4 004 i AUTHOR: Thomas N. Hastings, CREATION DATE: 14-Dec-1977 | 
46 O44 MODIFIED BY: 
46 0046 1! Thomas N. Hastings, 14-Dec-1977: VERSION 0 
47 0047 ' 00-01 - origina 
48 0048 ! 00-10 - Call back with indirect. TNH 3-Jan-78. 
49 0049 ! 00-14 = PSECT F4PCOMPATSCODE. TNH 5-Jan-78. 
50 0050 ! 00-15 = Fix MAXLIM. TNH 5-Jan-78. 
51 0051 : p-18 = Down count ERROR_COUNT. TNH 6-Jan-78 
26 B03¢ ! 00-17 = Math errors are Continue type. INH 6-Jan-78 
a7 88237 : 00-21 - remove debugging printing. TNH 9-Jan-78 
55 0085 i Jonathan M. Taylor, 12-Jan-78: VERSION 1 
56 B26 ! 1-1 = original; break module COMSERRSET_TST into COMSERRTST, COMSERRSET, 
57 005 i and COMSSERRSET_TST. JMT 12-Jan-78 


Oe Pee ee eee ee ee Le ed dd ee Be Se Se Oe we Fee Se ee Oe Se Oe ee ee FHS SH Oe Oe Se HS Se Se Se Se SESH SH Se Se ee Se SH Bt ae 


COMSERRSET FORTRAN compatibility error set (ERRSET) 4-3 S$ep-1984 9: AX-11 Bliss-32 V4.0-7 P 
eet . . 12-Sep-1986 99: $ 85 FORRTL.SRC COMERRSET. B52: 1 _ a5 
9 ~ - Bug fix. Call SI1G_NO_LUB, pot § SASHAL. sfoP. JMT 8-Apr-78 
“04 = Change to STARLET Tibfary. D | 
- - Chang e REQU UIRE iles for va’ systen Poul ld. DGP 28-Apr-78 
- Change STARLE to on berths t ae conflicts. DGP> 1-May-78 


gre change REQUIRE 


NE-NOV=78 

TER new BLISS compiler. JBS 22-NOV-78 

R auThE RIL BSECT direct y instead of. through OTSMAC. JBS 06-dec-78 
F x bug where alteration ot fy VaP6EH8 Sb uy .# uses caller's 


oooo 


saved to be munged! -0ct-1979 
Use prologue file. SBL Bryule 


'—- wes Os 
‘es 
——0O00 NSOue 
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C RRSET FORTRAN compatibility error set (ERRSET) 16-Sep-1984 00:09:27 AX-11 Bliss-32 V4.0-74 Page 3 

1-01 ; 12-808 - 1 3be 90:99:35 FORRTL.SRCJCOMERRSET.832;1 . (2) | 

; f Or 1 i PROLOGUE FILE 

;. 8 1! 

ee 074 #1 | 

: g 073 : REQUIRE ‘RTLIN:FORPROLOG'; ' FORS definitions 

; «678 3146 7 ft 

; 79 014 1 ! TABLE OF CONTENTS: 

; 0144 1! 

: 81 0145 1 FORWARD ROUTINE 

3 : 3148 : ERRSET: NOVALUE; ' FORTRAN compatibility CALL ERRSET | 

; «BS ape 1! | 

; 0149 1 ! INCLUDE FILES: 

; 8686 0150 1! 

: 87 0151 1 | 

; 0152 1 REQUIRE ‘RTLIN:COMEST'; ! COMSSERR_TAB fields 

; 0221 1 

; bse 1! 

; (91 0223 1 ! MACROS: | 

-_ 0224 1! 

aa, 0225 1! None 

; «694 0226 1 

; 0227 1! 

3 96 0228 1 ! EQUATED SYMBOLS: 

; | (97 ia44 ..3 

; «498 0230 1! None 

; WP 0231 #1 

; 100 O636 1! 

; 101 0233 1 | OWN STORAGE: | 

: 136 0234 1! 

s 10 0235 1! None 

; 104 0236 1 

; 105 0237 1! | 

; 106 0238 1 ! EXTERNAL REFERENCES: 

: 107 0239 1! 

; 108 0240 1 EXTERNAL 

; 109 0241 1 SSERR_TAB: BLOCKVECTOR CFORSK_MAX_ERR + 1, 1, BYTE] ADDRESSING_MODE (GENERAL), 

: 110 oeeg 1 COMS$SERRORCOUNT: ADDRESSING_MODE (GENERAL); ! Image error count Limit. 

: #617211 02435 #1 ! Decremented by COM_HANDLER. 

3 4 0244 1 ' EXIT on continuable error if 0. 

» ss 0245 1 

; 114 0246 1 EXTERNAL ROUTINE 

s 115 Bsee 1 FORS$$SIG_NO_LUB: NOVALUE ADDRESSING MODE (GENERAL); - 

> 116 48 1 ' STGNAL_STOP FORTRAN error with no | 

3 (117 0249 1 ' LUB associated. 
| 
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compatibility error set (ERRSET) 


ZSBITL"ERRSET' 
GLOBAL ROUTINE ERRSET ( 
FORT _ERR_NO 


word containing FORTRAN error number 

word containing continue fl 

f word containing count fla 

! Adr. of word containing continue type 

word containing log fla 

word containing image max error Limit 
! No value is returned 


'o4 
! FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: 
FORT_ERR_NO.rw.r Adr. of word containing FORTRAN error number 

to which the following parameters apply. 

Optional adr. of word 

continue after an error. 

after the error is detected. 

an EXIT after the error. 

tional adr. of word specif 

is error against the image's maximum 

TRUE. means count the error; 

-FALSE. means do not count. 

Optional adr. of word specifying the type of continuation 

to be performed after error detection. 

asses control to an ERR= transfer Label 

-FALSE. causes 

routine that detected the 

error for default error recovery. 

Optional adr. of word specifying whether to produce 

an error message for this error. 

a message (using signal mechanism); 

-FALSE. suppresses ’ 

Optional adr. of word containing positive ings 

er used to set the image's maximum error Limit. 

efault value is set to 15 at image initialization. 


ing whether or not to 
UE. means continue 
-FALSE. causes 


ying whether to count 
CCONT_TYPE.rw.r 


areturn tot 


CMAXLIM.rw.rJJJJ)) 


IMPLICIT INPUTS: 
COMSSERR_TAB byte table 
IMPLICIT OUTPUTS: 
COMSSERR_TAB byte table indexed by error number. 


ROUTINE VALUE; 
COMPLETION CODES: 


indexed by error number 


SIDE EFFECTS: 


COMSSERR_ TAB is 


ied. 
FORS_INVARGFO ID ARGUMENT TO FORTRAN 1I/0 LIBRARY’) 
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COMSERRSET FORTRAN compatibility error set (ERRSET) 16-Sep-1984 00:09:27 AX-11 Bliss-32 V4.0-74 Page 5) cc 
ONS ERRSET. . 1o78ee7 138s 93:97:58) — EPGaRte SReicomennser6S2:1 9° (33 
: 17 0307 1! If error number is floating underflow (74), ; 
. or 8 BS 1! either enable or diable floating underflow for calling procedure : 
; 178 09 1! actives ion depending on final setting of LOG status bit for . 
; 179 0310 1! error 74. This is not quite the same as the PDP-11 where : 
; i) 8 V : the enable or disable affects all procedure activations not just caller. : 
: 186 0 i 1 3 
; 18 0314 BEGIN : 
3; «184 0315 3 
; 6185 0 16 BUILTIN NULLPARAMETER; : 
; «4186 031 F 
; «187 0318 MAP F 
; 188 0319 FORT_ERR_NO: REF VECTORC1,WORD), ; 
; 189 0320 CONTIN: REF VECTORL1,WORDJ, : 
; 190 0321 COUNT: REF VECTORL1,WORDJ : 
: 191 O32¢ 2 CONT_TYPE: REF VECTORC1,WORD), | ; 
: 136 032 LOG: REF Wis loch) <woneds : 
: 19 0324 MAXLIM: REF VECTORC1 ,WORDJ; | ; 
> 194 0325 LOCAL : 
; #195 0326 § N; ! Temporary FORTRAN error number for this error ‘ 
> 196 0327 5 
: 197 0328 2 + ; 
3 Hb ti § ‘ If no FORT_ERR_NO, SIGNAL_STOP FORS_INVARGFOR (48="INVALID ARGUMENT TO FORTRAN I/0 LIBRARY‘) : 
: 200 0331 2 ; 
; 201 0339 2 IF NULLPARAMETER (1) THEN FORS$SIG_NO_LUB (FORSK_INVARGFOR); ; 
3 soe b3¢ 2 N = .FORT_ERR_NOCO]; : 
; 20 334 2 3 
: 204 0335 2 '¢ , : 
> 205 0336 2 ! Check range of FORTRAN error number and whether a defined error number $ 
: 206 0337 2 le ; 
: 207 0338 2 | : 
; 208 0339 2 IF .N GTRU FORSK_MAX_ERR THEN FORS$SIG_NO_LUB_ (FORSK_INVARGFOR) ; : 
3 $0 bate § IF .COM$$SERR_TABL.N, B_EC_ANY] EQL 0 TREN FORS$$SIG_NO_LUB (FORSK_INVARGFOR); | : 
211 O34¢ 2 \4 ; 
; ele 0343 2 ! Continuation arg - If TRUE, check if allowed to continue : 
s 23 0344 2 ! by making sure either continue or ERR= is allowed. F 
3 214 0345 2 te F 
s 213 0346 2 $ 
3 626 0347 2 If NOT NULLPARAMETER (2) | : 
s eur 0348 THEN 3 
s 2 0349 BEGIN : 
: 319 0350 COMSSERR TaBl.N, V_EC_CONTINUE) = 0; : 
3; 20 0351 IF .CONTINE 3 
3 «ger 8326 3 EN : 
s eee 0353 4 BEGIN 3 
; $23 0334 4 IF NOT .COMSSERR_TABL.N, V_EC_CONT_ALLOW] AND NOT .COMSSERR_TABL.N, V_EC_EREQ_ALLOW] ; 
: 225 0356 4 FORS$SIG_NO_LUB (FORSK_INVARGFOR); | 3 
3 226 0357 4 COMSSERR_TABL.N> V_EC_CONTINUE) = 1; : 
: 227 0358 4 END 3 
: 228 359 END; : 
: $3 360 3 
: 31 362 i t control - if t | 
: ' Count control - if present, copy user arg 
: 232 368 !- 
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popgnnser FORTRAN compatibility error set (ERRSET) \g- 700-138? 00:09:67 ne Bliss-32 V4.0-74 
1-01 ERRSET 14-Sep-1984 12:31:28 FORRTL.SRCJCOMERRSET.B52;1 
; 3 0364 . 
: $ ¢ 8 9? IF NOT NULLPARAMETER (3) THEN COMSSERR_TABC.N, V_EC_COUNT] = .COUNTCO]; 
; 5 6 0 9 1+ : 
ee +) 0368 ' Continuation type - If 1 (CERR=), check if allowed. 
; $36 0369 ! If 0 (continue), check if allowed. 
5 0370 le 
; re 0371 
; 4) O378 IF NOT NULLPARAMETER (4) 
; stg 037 THEN 
; 24 0374 BEGIN 
> 246 O32 ; IF .CONT_TYPECOJ 
> 245 76 THEN ! User wants ERR= 
; 246 0377 4 BEGIN 
3 267 0378 4 IF NOT .COMSSERR_TABL.N, V_EC_EREQ_ALLOW] THEN FORS$SIG_NO_LUB (FORSK_INVARGFOR); 
> 248 0379 4 COMSSERR_TABL.N, V_EC_CONT_TYPE] ="1; 
> 249 0380 4 END 
3 $20 tet ? ELSE - ! User wants to continue in run-time Library 
, gre $388 4 IF NOT .COMSSERR_TABL.N, V_EC_CONT_ALLOW] THEN FORS$$SIG_NO_LUB (FORSK_INVARGFOR); 
3 253 0384 4 COMSSERR_TABL.N, V_EC_CONT_TYPE] ="0; 
: 254 0385 4 END 
; 255 0386 2 END; 
> 256 0387 2 
; gor 0388 § + 
; 258 0389 ! Log control - copy user arg 
; 259 0390 2 t= 
; 260 0391 2 
: 261 0392 2 IF NOT NULLPARAMETER (5) THEN COMSSERR_TABL.N, V_EC_LOG] = .LOG(O); 
5 62 0393 2 
3 263 0394 2 '¢ 
: 264 0395 2 ! Maximum error Limit - copy user arg if present 
3; 265 0396 2 le 
; 266 0397 2 
g eer 0398 2 IF NOT NULLPARAMETER (6) THEN COM$SERRORCOUNT = .MAXLIMCO]); 
; 268 0399 2 
3; 269 0400 2 + 
: 270 0401 2 ! If this error is mein underflow (74) 
3 art 0402 2 ! Set or clear floating underflow for calling procedure activation, 
; 272 0403 2 ; cepend ing on whether floating underflow is to be logged or not. 
: as 0404 2 !' Note: this is not quite the same as the PDP-11 where the enable 
; 274 0405 2 ' takes effect for all procedure activations. 
2 gre 0406 2 !- 
3 $f8 0407 § 
3 77 0408 IF .N EQL FORSK_FLOUND 
; ere 0409 ¢ THEN 
3 h(Uary 0410 BEGIN 
; 280 0411 3 BUILTIN FP; ! Stack frame pointer 
; 281 O4i¢ 3 MAP FP: REF BLOCKL, BYTE); ' Use MDL definitions 
3 282 041 FP CSF$V_FU) = .COMSSERR_TAB CFORSK_FLOUND, V_EC_LOG); 
; 283 0414 END; 
3; 6284 0415 
; 285 0416 '¢ 
z 36 0417 ' Return 
; a 0418 
; 288 0419 
; 6289 0420 RETURN 


ma 
1c 
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COMSERRSET FORTRAN compatibilit t (ERRSET) -Sep- :09: > ~ .0- 
et ERRSET. > ee 1enee- 1 3be 89:97:56 || HAMant aes comekeser aSes1 (3) 


14-Sep-19 1:28 FORRTL.SRC 
; 290 0421 1 END; ! End of ERRSET 


-TITLE COMSERRSET FORTRAN compatibility error set (ERR 
-IDENT \1-012\ 


-EXTRN COMSSERR_TAB, COMSSERRORCOUNT 
“EXTRN FORS$SSIG~NO_LUB 


-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


001¢ 00000 .ENTRY ERRSET, Save R2,R3,R4 : 0251 : 

54 000000006 00 3 00002 MOVAB FORSSSIG_NO_LUB, R4 : | ; 
6C 95 00009 TSTB  —- CAP?) + 0332) ; 

05 13 00008 BEQL 1$ : : 

04 AC 05 0000D TSTL 4 (AP) : é 

05 12 00010 BNEG = 2$ : ; 

30 DD 00012 1$ PUSHL #48 : | ; 

64 01 FB 00014 CALLS #1, FOR$$SIG_NO_LUB : | : 
53 04 BC 3C 00017 2$ MOVZWL @FORT_ERR_NO, N + 0333) ; 
0000005D = &F 53 D1 0001B CMPL oN, #93 : 0339 : 
05 1B 00022 BLEQU 3$ : : 

30 DD 00024 PUSHL #48 : : 

4 01 FB 00026 CALLS #1, FORS$SIG_NO_LUB s é 
52 0000000060043 3E 00029 3$ MOVAB COMSSERR_TABIN], R2 + 0340 ; 
62 95 00031 TSTB — (2) : : 

05 12 00033 BNEQ : ; 

30 pd 00035 PUSHL #48 : ; 

64 01 FB 00037 CALLS #1, FORSS$SIG_NO_LUB z $ 
02 6C 91 0003A 4$: (MPR Ss AP), #2 > 0347. ; 
1C 1F 0003D BLSSU-6$ : : 

08 AC DS 0003F TSTL B(AP) : ; 

17 13 00042 EQL ~=s 46S : ; 

62 01 8A 00044 BICB2 #1, (R2) : 0350 ; 
10 08 BC £9 00047 BLBC  aCONTIN, 6$ > 0351 ; 
62 05 £0 00048 BBS , (R25, 5$ > 0354 : 
62 06 £0 0004F BBS #6. (RO). 5$ : ; 
30 DD 00095 PUSHL #48 > 0356 : 

64 01 FB 0005 CALLS #1, FORS$$SIG_NO_LUB : ; 
62 01 88 00058 5$ BISB2 #1. (R2) : 0357 : 
03 6C 91 00058 6$ CMPB ss CAP), #3 > 0365 : 
OB 1F 0005E BLSSU7$ : : 

Oc AC D5 90069 TSTL  12¢AP) : ; 

06 13 0006 BEQL «= 7$ : : 

01 0c BC FO 00065 INSV a@COUNT, #1, #1, (R2) : ; 
04 6C 91 0006B 7$ CMPB (AP), ; 0372 2 
23 1F 0006 bLSSU. 118 ; : 

10 AC 05 0007 TSTL  16(AP) : ; 

1€ 13 0007 BEQ. 11$ ; : 

0 10 BC £9 90075 BLBC aCONT_TYPE, 9$ : 0375 : 
6 06 EO 00079 BBS #6, (R2), &$ : 0378 : 
0 DD 9007 PUSHL #48 ; : 

64 01 EB 007F CALLS #1, FORS$$SIG_NO_LUB : : 
62 04 88 00082 8$: BISB2 #4. (R2) : 0379 : 
O¢ 11 00085 BRB 11§ > 0374 : 

62 5 £0 00087 98: BBS #5, (R2), 108 > 0383 ; 


FORTRAN compatibility error set (ERRSET) 
ERRSET 


50 000000006 00 
AE 01 


StF beret toast 


16 
16-Sep 9:27 AX-11 Bliss-32 V4.0- 
145 7198e 90: $5 :3f YOORRTLS SR sei coteknger B32;1 
0 oD 0088 PUSHL #48 
64 1 FB 08D CALLS #1, FORSSSIG_ NO_LUB 
62 04 BA 00 9 10$: BICB2 #4 
0 6C 91 00093 11$: CMPB tap)” 
OB iF 90096 BLSSU gs 
% at D3 009 TSTL 20(AP) 
06 13 00098 BEQL '12$ 
03 14 BC FO 0009D INSV LOG, #3, #1, (R2) 
06 6C 91 OOOA3 128: CMPB (AP), #6 
OD 1F 0006 BLSSU-13$ 
18 AC D5 000A8 TSTL  24(AP) 
08 13 OO0AB BEQL 13$ 
000000006 00 18 BC 3C OOOAD MOVZWL aMAXL IM, COMSSERRORCOUNT 
0000004A BF 53 D1 00085 13$: CMPL 
OF 12 000BC BNEQ Nis" 
01 03 EF popes EXTZV #3, #1, tae 9 be TAB+74, RO 
06 50 FO 000C INSV RO. #6. #1, 4CEPY 
04 000CD 14$: RET 


Routine Base: _FORSCODE + 0000 


PSECT SUMMARY 
Bytes Attributes 
206 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


oar ene Syabols es-<-e-- Pages Processing 
Total Loaded Percent Mapped Time 
2:1 9776 $ 0 581 00:01.0 
L32;1 711 0 52 00:00.6 
L32;1 36 0 0 8 00:00.1 


COMMAND QUALIFIERS 


Be Se Se Se Be Be Se Se Ge Se Be Se Se Se Be Se Se Se 


14 | 
OMSERRSET FORTRAN compatibility error set (ERRSET) 1b. Sep-1984 09:27 AX-11 Bliss-32 V4.0-74 Page 9 
ett ERRSET : ox 8een 138s 98 :9F se Mea ees coe Kner y Bo2.1 9° 03) 
: PLISS/CHECK SCF IELD. SNE TIAL OPTIMIZE) /HOTRACE/LES=1 1951 CONERRSET/08.)=08)S: COMERRSET MSRC$: COMERRSET/UPDATE=(ENHS$: COMERRSET 


; Size: 206 code + 0 data bytes 
; Run Time: 00:07.9 

; Elapsed Time: 00:29.0 

3; Lines/CPU Min: iss? 

; Lexemes/CPU-Min: 14 

: cnet Used: 105 pages 
oO 3 


; Compilation Complete 


AL EQUIPMENT CORPORATION | 


Q178 8481138 SE D : 
0] c DENTIAL .AND PROPRIETARY 


VAX/VMS V4.0. 
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